بسم الله الرحمن الرحيم 
السلام عليكم ورحمة الله وبركاته. 


منذ تسجيلي بهذا المنتدى الطيب وانا اقوم بجمع المعلومات وكان اكثر شيء يشدني مسالة الربط بقاعدة 
البيانات والاكثر شدا للانتباه هو مسالة الصلاحيات وجمعت معلومات لاباس بها فاحببت ان نبدا سوية خطوة 
بخطوة لتصميم برنامج يتعامل مع قاعدة بيانات اكسس ۲۲۷ باستخدام فیجوال بيسك ۲۰۰۸ . 


فمن لديه هذه البرامج فهو جاهز للبدء معنا خطوة بخطوة. 


لنبدا على بركة الله افتح برنامج 
Microsoft Visual Studio 2008‏ 
اختر مشروع جدید 
WindowsApplication1‏ 

اضف عدد ٦‏ نماذچ= ۳۶اه 6 
الاول ولیکن اسمه = ۴٥۲۳1‏ 


اضف له الادوات اللازمة كما هو موضع بالصورة التالية: 


wanted program E 3 
جیه تغدبل.‎ 
نة‎ a الآبه‎ 

حذقه متو التصوص 
الحد 
العاثلة 

الاو الاخير 

لسانق التالى 
العبيلة 
مكات المبلاد 
عقد الشنخلات 

تاريخ المبلاد ڪڪ 
رقم السخل المدنىف 
رقم الحغيظة 
مصدره اریخا | | 


ضوبة الادارة 
قم بالضغط على زر حفظ الكل ليتم انشاء مجلد للمشروع ..الان قم بفتح مایکروسوفت اکسس ۲۰۰۷ 


قم بانشاء جدول جديد واسمه ٥١‏ هس انظر الصورة التالية 


الخصائص 
إظهار/اخفاء 


قھارس. 


EE 


txtfather 
txtgrand | 
txtfamiy 
tetqablah 
birthplace 
birthdate | 
txtrecordno 
txtnoteno) | 
txtnotesource | 
txtnotedate | 


eke‏ :جدود 
fadmin‏ 
mi‏ + جدود 


Merosoft Access - (Access 2007) ٽتl,‎ êl + b1 


SEBESSEREESE 


يمن ثا يصل طول اسم الحفق إلى 64 حرفا تضمن 
مساقات. لفحصول على تعلیقات حول أسجاء الحقوله 
F1 kî‏ 


اضف الحقول كما ترى بالصورة تماما 


انشيء جدول اخر واسمه 


Fmembers 


` EEE 
اھا ت‎ 


2 


|8 حاير مان د تسین جوف معن فی قاعدة انت |_ جرت 


e4‏ : جدود 


س : جدول 


MTT 


IDLE 


Fblocked 


انظر الصورة التالية 


EE Microsoft Access - (Acce55 2007) lila دة‎ ; d1 | 
0 

جي امت لف 4 تجدید - | e‏ 

اقحنت اتی إے ا 1 جرت معمه- ا - 

× حدف < ار < ر a ll‏ 

r lı رز وتصقية‎ e 


YEbIpELeyecEhiQRW20AEg: 


r7aU8CrV4/TuTIYmSIIWRQ:‏ اير أ 
IrH9JgDKiwUUOWAIThWB2E-‏ علي | 
JTKtFHQoSaEYNCWZhSN+eg-‏ قراس | 
G77pXC6IZWZESGEACSOxLg:‏ سلامة | 


e" CEEKCENEK NEC 


س mina‏ ا 3 


وانشيء جدول ايضا وهو المهم واسمه 


استعرض الصور بشكل منفصل عن البرنامج لرؤيتها بشكل اوضح 


الان بقي علينا الربط لاننا عرفنا اسم قاعدة البيانات وهي طفءءه.1طل 
هذا باستخدام اکسس ۲۰۰۷ اما ۲۰۰۲ فهو 


Db1.mdb 


الان فنقل بشكل متاخر فكرة برنامجنا وهي 
صورة شبيهه بدفتر العناوين واسمينا هذا الجدول المخصص باسم dع†"2س‏ 


نريد الان الربط بهذا الجدول 


نضيف موديول جديد وسمه إاوءرهمء ونضيف به الجملة التالية 


اعلى اطار الشيفرة اكتب 


تم داخل الموديول بين جملتي 
Module constr‏ 
و جملة 


End Module 


اكتب هذا الكود 


HEDB.12.0; data source= 


Imports System.Data.OleDb 


Public conn As New 
OleDbConnection ("Provider=Microsoft. ACE. OLI 


|datadirectory|\db1.accdb; Jet OLEDB:Database Password=vb4arab") 


wanted" 


Public ds1 As New DataSet 
FUbDLIS SGLL AS SEEING = TSElecGt. * TFEON 


Public dal As New OleDbDataAdapter (sql1, conn) 


الان انتهينا من اهم خطوة بقيت خطوة الربط بالادوات 


نذهب لحدث For۸1_1024‏ 


الخاص بنموذج او فورم اظهار محتوی القاعدة 


ونكتب الكود التالي 


e.txtname.DataBindings.Add ("text", dsl, 


e.txtfather.DataBindings.Add ("text", dsl, 


e.txtgrand.DataBindings.Add ("text", dsl, 


e.txtfamily.DataBindings.Add ("text", dsl, 


(TEOEET, «QSL, 


CFEC ASL; 


TEY 
conn. Open () 
da1l.Fill (ds1, "wanted") 
conn.Close () 


"wanted.txtname"™) 


"wanted.txtfather™") 


"wanted. EXEGEaRnA™) 


"wanted.txtfamily") 


e.txtqabilah.DataBindings.Add 
"wanted.txtqabilah") 


e.birthplace.DataBindings.Add 
"wanted.birthplace") 


e.birthdate.DataBindings.Add ("text", dsl, 
"wanted.birthdate") 


e.txtrecordno.DataBindings.Add ("text", dsl, 
"wanted.txtrecordno"™) 


e.txtnoteno.DataBindings.Add ("text", dsl, 
"wanted.txtnoteno™") 


e.txtnotesource.DataBindings.Add ("text", dsl, 
"wanted.txtnotesource™) 


e.txtnotedate.DataBindings.Add ("text", dsl, 
"wanted.txtnotedate") 


Catch ex As Exception 
MsgBox (Err.Description, MsgBoxStyle.Critical) 


ERG TEY 


الان قم بتشغيل البرنامج لتجربته اذا كان عملك صحيحا فستظهر محتويات القاعدة ضمن الفورم الاول 
اسماء مربعات النص مثل اسماء حقول القاعدة 
لاحظها بنفسك 


مثلا اردنا ربط مربع نص بحقل اسم نسمي مربع النص اسم ¿×٠١‏ يجب ان يكون اسم الحقل بالقاعدة 
مثل هذا ليعمل الكود بشكل صحيح. 


الان قم بالنقر على زر جديد لاضافة صف جديد ماذا يحدث 


Button2.Enabled = True 
Button3.Enabled = True 
Call opentxt () 


Button3. Select () 


يقوم بتمكين زر الحفظ وزر محو النصوص بالمربعات 


ثم يقوم باستد عاء دالة مخصصة opentxt‏ 


لنراها الان 


Public Sub opentxt () 

Forml1.txtname. ReadOnly = False 
Form1.txtfather.ReadOnly = False 
Form1.txtgrand.ReadOnly = False 
Form1.txtfamily.ReadOnly = False 
Form1.txtqabilah.ReadOnly = False 
Form1.birthplace.ReadOnly = False 
Form1.birthdate.ReadOnly = False 
Form1.txtrecordno. ReadOnly = False 


Form1.txtnoteno.ReadOnly = False 
Forml.txtnotesource.ReadOnly = False 
Form1.txtnotedate. ReadOnly = False 


End Sub 


والباقي سهل 
لننظر الى زر الحفظ 


Button2.Enabled = False 
TEY 


Dim dRow As DataRow = ds1.Tables ("wanted") .NewRow 


dRow.Item(O0) = txtname. Text 
dRow.Item (1) = txtfather. Text 
dRow.Item(2) = txtgrand. Text 
dRow.Item(3) = txtfamily.Text 
dRow. Item (4) = txtqabilah. Text 
dRow.Item(5) = birthplace. Text 
dRow.Item(6) = birthdate. Text 
QdRow.Item (7) = txtrecordno. Text 
dRow.Item (8) = txtnoteno. Text 
dRow.Item(9) = txtnotesource. Text 
dRow.Item (10) = txtnotedate. Text 
ds1.Tables ("wanted") .Rows.Add (dRow) 
da1l.Update (dsl, "wanted") 


("بتجاخ العبانات قاعدة في و الفط الاضافة. قملية قت" ) MS386©0x‏ 
Dim forml1 As New Forml‏ 

Me.Hide () 

forml1. Show () 


Call closetxt () 


Catch ex As Exception 
MsgBox (Err.Description, MsgBoxStyle.Critical) 


End TEY 


هذه افضل طريقة للاضافة افضل من ٥٤ہ‏ ا٣یہ‏ 
لننظر الان الى زر الحذف 
TEY‏ 


IÊ MS5GBox ("Ja dنزت ,"الاي السجل حذف‎ Ms JBOXSEyY1e.OkCanCeL) 
= MsgBoxResult.Cancel Then 


EXitE SUb 
EN LÊ 
Dim SavInto As New OleDb.OleDbCommand 
SavInto.Connection = conn 
SavInto.CommandType = CommandType. Text 


SavInto.CommandText = "DELETE FROM wanted WHERE 
Ltxtrecordno='" & txtrecordno.Text & "'" 

conn. Open () 

SavInto.ExecuteNonQuery () 

dAS1.CLEéEaE 0) 

da1l.Fill (dsl, "Tab1") 

conn.Close () 

("بتجاع العانات عة ي الق قوa Mš;BEoX ("a‏ 

Dim frml1 As New Form1l 

Me.Hide () 

frml1. Show () 

Catch ex As Exception 

MsgBox (Err.Description, MsgBoxStyle.Critical, "error") 

ENG TEy 


هل رايت السهولة 


ولننظر الى زر التعديل 
Dim frm3 As New form3‏ 
frm3.txtname.Text = Me.txtname. Text‏ 
frm3.txtfather.Text = Me.txtfather. Text‏ 


frm3.txtgrand. Text = Me.txtgrand. Text 


frm3.txtfamily.Text = Me.txtfamily. Text 


frm3.txtqabilah.Text = Me.txtqabilah. Text 


Ffrm3.birthplace.Text = Me.birthplace. Text 


Frm3.birthdate.Text = Me.birthdate. Text 


Frm3.txtrecordno.Text = Me.txtrecordno. Text 


frm3.txtnoteno.Text = Me.txtnoteno. Text 


frm3.txtnotesource.Text = Me.txtnotesource. Text 


frm3.txtnotedate.Text = Me.txtnotedate. Text 


frm3.lbl.Text = Me.txtrecordno. Text 


frm3. Show () 
Me.Hide () 


فورم التعديل والذي اسمیناه ۴٥۲۳3‏ 
انسخ كافة مربعات النص في الفورم الاول وا لصفها بفورم التعديل واضف زرين حفظ والغاء 


بزر الحفظ اكتب 


TEY 

Dim n As String = l1lbl.Text 

Dim SavInto As New OleDb.OleDbCommand 

SavInto.Connection = conn 

SavInto.CommandType = CommandType. Text 

SavInto.CommandText = "UPDATE wanted SET txtname = '" & 
Trim (txtname.Text) & "' , txtfather = '" & Trim(txtfather.Text) & "'" 
, txtgrand= '" & Trim(txtgrand.Text) & "' , txtfamily= '" & 
Trim (txtfamily.Text) & "' , txtqabilah= '" & Trim(txtqabilah.Text) & 
1 birthplace= '" & Trim(birthplace.Text) & "' , birthdate= '" & 
Trim(birthdate.Text) & "' , txtrecordno= '" & Trim(txtrecordno. Text) 
& "' , txtnoteno= '" & Trim (txtnoteno.Text) & "' , txtnotesource= '" 
& Trim (txtnotesource.Text) & "' , txtnotedate= '" & 
Trim (txtnotedate.Text) & "' WHERE txtrecordno ='" & n & "IT" 


conn. Open () 

SavInto.ExecuteNonQuery () 

dal .Update (dsl, "wanted"™) 

conn.Close () 

("بتجاعح الائات قافدة ق و الفط التعديل فملية ةة"( MSg;80xX‏ 


frm. Show () 
Me.Close () 


Catch ex As Exception 

conn.Close () 

MsgBox (Err.Description, MsgBoxStyle.Critical) 
ENA TEY 


ERG Sb 


في الفورم الاول نريد برمجة ازرار التنقل 
کود زر الاول 


Me.BindingContext (dsl, "wanted").Position = 0 


كود زر الاخير 


Me.BindingContext (dsl, "wanted").Position = 
Me.BindingContext (dsl, "wanted").Count ¬ 1 


Me.BindingContext (dsl, "wanted").Position ~== 1 


التالى 


Me.BindingContext (dsl, "wanted").Position += 1 


عدد السجلات 


MsgBox (Me.BindingContext (ds1, "wanted") .Count, 
MsgBoxStyle.Exclamation) 


الان لنقم بالبدء بشغلتنا الرئيسية وهي 

المستخدمين وصلاحياتهم 

اتذكر ان هناك جدول اسمه 

Fmembers 

اذا نريد اضافة عضوية بالنقر على اداة تسجيل عضوية جديدة الموجودة ضمن الفورم الاول 
انقر عليها نقرا مزدوجا واكتب بحدتها 


addmember. Show () 
Me.Hide () 


اضف فورم وليكن اسمه 
Addmember.vb‏ 


واضف الادوات اللازمة ليصبح هكذا 


تسجيل حصوية جديدة 

اسر مسقخدم خديد 
كلمة مرور حديدة 
اعادة لكلمة المرور 


اسم المربع الاول 
Txtusername‏ 


الثانى 


Txtpassword 
الثالث‎ 
Txtpassword1 
لذنری زر تسجیل‎ 
If txtusername.Text = "" Or txtpassword.Text = "" Or 
txtpasswordl1. Text = "" Then 
MsgBox ,"مقبولة قيم ادخالJ ب"(‎ MsgBoxStyle. Exclamation, 


"î "( 
ERIE SUB 


Elself txtpassword.Text <> txtpassword1. Text Then 
M× S9660× "متو فة غير المرور. كلفاةث")‎ ( 
EXitE Sub 


ERG FE 
طبعا واضح لايحتاج الى شرح‎ 


الكود التالي يقوم بفحص القاعدة وجدول الاعضاء هل الاسم المختار موجود او لا 


Dim issql As String = "select * from fmembers where 
fusername='" & Me.txtusername. Text & "'" 
Dim isds As New DataSet 
Dim isda As New OleDb.OleDbDataAdapter (issql, conn) 
isda.Fill (isds, "fmembers™"™) 
If Me.BindingContext (isds, "fmembers").Count > O0 Then 
MsgEox ۽" آحر جرب الاستخد اج قيد المستخدم اسم"(‎ 
MsgBoxStyle.Critical, "lطzخ")‎ 
Exit SUB 
End TIF 


فلنركز على هذا السطر 
If Me.BindingContext (isds, "fmembers").Count > O0 Then‏ 


انظر لعلامة اكبر من 0< وافهمها 


۳ آ خر جرف الاستخدام قيد المستجدم اسم "( SgBoxX‏ 
)"zطl" MsgBoxStyle.Critical,‏ 


r 


HELE Sab 
ERG. LEÊ 
واضحة‎ 
بعدها استدعينا دالة الحفظ‎ 
doregister () 
LEY 
Dim regsql As String = "select * from fmembers”"™ 


DIM TY AS SEEING 

Dim regds As New DataSet 

Dim regda As New OleDb.OleDbDataAdapter (regsql, conn) 
Dim CmdB As New OleDb.OleDbCommandBuilder (regda) 


regda.Fill (regds, "fmembers") 
n = Encrypt (addmember.txtpassword. Text, 
"8S*WODRHEMASWIEOSA4 7S ILOBT™) 


Dim dRow As DataRow = regds.Tables ("fmembers") .NewRow 
dRow.Item(0) = addmember.txtusername. Text 
dRow.Item(1) = n 


regds. Tables ("fmembers") .Rows. Add (dRow) 
regda. Update (regds, "fmembers"™) 


MS3860×< "2 )"تجا الخسجيل‎ 
Catch ex As Exception 

MsgBox (Err.Description, MsgBoxStyle.Critical, "error") 
Enid TEY 


وبعدها الاجراء العادي 
login. Show ()‏ 
Me. Hide ()‏ 
بعد الاضافة يقوم بالتوجه الى شاشة الدخول 


انظر الصورة التالية 


اتات ادون 


اسم المسعخنم | 


كلصة الصرهر 


لنری زر دخول 


DIM DAS SEEILRG 
TEY 
n = Encrypt (Me.txtpassword. Text, 
"85*wqbhtmaswdf654789lop") 


Dim sqlstrl1 As String = "SELECT * FROM fmembers WHERE 
fUserName= '" & txtusername.Text & "' and fPassword='" & n & "'™ 

Dim mblocked As String = "select * from fblocked where 
fUserName='" & txtusername.Text & "'" 

Dim madmin As String = "select * from fadmin where 
fUserName='" & txtusername.Text & "'" 


Dim mblockedds As New DataSet 
Dim mblockeddsda As New OleDb.OleDbDataAdapter (mblocked, 


conn) 
mblockeddsda.Fill (mblockedds, "fblocked™") 
Dim madminds As New DataSet 
Dim madminda As New OleDb.OleDbDataAdapter (madmin, conn) 
madminda.Fill (madminds, "fadmin") 
Dim dataset1 As New DataSet 
Dim dataadapterl As New OleDb.OleDbDataAdapter (sqlstrl, 
CODE) 
dataadapter1.Fill (dataset1, "fmembers") 
If Me.BindingContext (dataset1l, "fmembers").Count = 0 Then 
With 1lblmsg 
.ForeColor = Color.Red 
ERG WIER 
1lgist () 
151053: 18× = جضفقة ستةډخل: خاطتة 3خولك جتانات. قفو ا"‎ 
"ف‎ 
Timer1.Enabled = True 


"fblocked") .Count > 


Else 


If Me.BindingContext (mblockedds, 


0. TRE 
l1lblmsg.ForeColor = Color.Red 
[DIRS 1T6XE. = " زجع م ا ظرك ا51 اار5 امك غقر‎ 
۳ز‎ 
Exit Sub 
E1Iself Me.BindingContext (madminds, "fadmin").Count > 
O0 Then 
ladmin () 
Forml. Show () 
ELIself Me.BindingContext (datasetl1l, "fmembers") .Count 
> 0 Then 
1member () 
Forml. Show () 
EDEL LE 
ED: LEÊ 
Catch ex As Exception 
Si sb &5 مو اطا ورقم عطا نوجه عقوا" = دا2‎ "¢ ۳ ۳ 


= هو الخطا ونص'"‎ " » Err.Description 
MsgBoxStyle.Critical) 


ENG TEY 


لن اشرح الكود وانما ساشرح الفكرة 
الفكرة هي ان الذي يسجل الدخول للبرنامج وقاعدة البيانات 


اما ضيف او عضو او محظور او مشرف 


& Err.Number & " " 
Di MSS AS. SEEING 


MsgBox (msb + mss, 


الان الكود مرة اخرى كود الدخول 


طبعا لايوجد حقل للضيف في القاعدة وانما ان لم يوجد الاسم ضمن الاعضاء ءمbصع؟‏ 


فمعناه بكل بساطة انه ضيف وهذا الكود 


Dim dataset1 As New DataSet 


As New OleDb.OleDbDataAdapter (sqlstr1l, 


"fmembers™") 


"fmembers").Count = 0 Then 


= Color.Red 


فة دل كاف .نة اتات ر ١‏ 


Dim dataadapter1l 
conn) 


dataadapter1.Fill (dataset1l, 
If Me.BindingContext (dataset1l, 


With 1lblmsg 


.ForeColor 


End With 
1gist () 
lblmsg.Text = 


Timer1.Enabled = True 


ان كان ضيفا يتم استدعاء دالة 
HOLSE‏ 


لنكشف هذه الدالة 


Forml1.grtool.Enabled = False 
Forml.rcount.Enabled = False 


Forml.lmng.Enabled = False 
Form1.GroupBox3.Enabled = True 
Forml1.lregister.Enabled = True 
۶ اكتشفم بنة‎ 
Lmng 


هذا يؤدي للادارة وهو ممنوع للضيوف 


لايستطيع الا التصفح فقط 


وان كان من الاعضاء المحظورين تظهر له رسالة انه تم حظره ويوقف البرنامج 


If Me.BindingContext (mblockedds, "fblocked").Count > 


0 Then 
l1lblmsg.ForeColor = Color.Red 
[LbD1SG. 1Tê6X = قاح محظرك الإاذ ار ة قات عفر ا"‎ 
ن‎ 
EXE Sub 
8: % . . a 
وان كان من المدراء او المشرفين‎ 
ElseIf Me.BindingContext (madminds, "fadmin").Count > 
O0 Then 


ladmin () 
Forml. Show () 


یتم اسند عاء دالة 


Ladmin 


لنكشف هذه الدالة 


Form1.grtool.Enabled = True 
FOLML: FCOouUNt.ENnabled = Truê 
Form1.GroupBox3.Enabled = True 
Forml1. lmng. Enabled = True 


يتم فتح وتمكين كل الازرار 


ومن ضمنها زر الادارة 


وان كان من الاعضاء 


Elself Me.BindingContext (datasetl1l, "fmembers") .Count 
> 0 Then 
1member () 
Forml. Show () 
يتم استدعاء دالة‎ 
Lmember 
لنكشف هذه الدالة‎ 
Forml1l.grtool.Enabled = True 
Forml1.rcount.Enabled = True 
Forml1.1lmng.Enabled = False 
Form1.GroupBox3.Enabled = True 
Forml1.lregister.Enabled = True 
Form1.bttnedit.Enabled = False 
Forml1.bttndelet.Enabled = False 


الان انتهينا بحمد الله من تكويد شاشة الدخول 


انقر زر الادارة بعد ان تضيف فورم باسم 


Mng 


اكتب بداخل زر الادارة الكود التالي 


MNG. Show 


Me. Hide () 


)( 
اضف الادوات لفورم الادارة ليصبح هكذا انظر الصورة 
ا 3 ا 
كلمة المرفر 5 
lT‏ سدس ر ا 
كلمة المزور eee‏ ا 
تد |[ حة ][ حتف ]ل جف )][ فس 
Combobox=cb1‏ 
Listbox=lb1‏ 
ليتم ملء اداة الكمبوبوكس باسماء الجداول اکتب بحدث ۵ای۸" 
الكود التالي 
sql1 As String = "select * from fmembers”"™‏ 


ERG TEY 


ds1 As New DataSet 


dal As New OleDb.OleDbDataAdapter (sql1, conn) 
Fill (ds1, "fmembers") : dal1l.Fill (ds1, "fadmin") 
blocked”) 


dt As DataTable 
Items.Clear () 

Eat dE EE ASL:TaDLSS 
cb1.ltems.Add (dt. TableName) 


TE CBlL. LCOS COUNE = 0; Then 


cbl1.Items.Add ("<none>") 
LÊ 


LEY 
DI 
Dim 
Dim 
dal. 
dal: ELLL (ASL; TE 


Dim 
ele 


FOE 


Next 


End 


Catch ex As Exception 


MsgBox (Err.Description, MsgBoxStyle.Critical) 


كل مجموعات الاعضاء سيتم اضافتها لاداة الكمبوبوكس اثناء بدء التشغيل 


لناتي الى حدث 
cb1_SelectedIndexChanged‏ 


ch1=combobox1 


ونضيف الكود التالي 


TEY 


Select Case cb1.Text 
Case "fmembers" 

Dim dss As New DataSet 
Dim Sql = "select * from fmembers" 
Dim daa As New OleDb.OleDbDataAdapter (Sql, conn) 
dss.Clear () 
daa.Fill (dss, "fmembers™") 

lb1.DataSource = dss.Tables (0) 

1lb1.DisplayMember = "fusername" 

1lb1.ValueMember = "fusername" 


Caê TEadmiR™ 


Dim dss As New DataSet 

Dim Sql = "select * from fadmin”" 

Dim daa As New OleDb.OleDbDataAdapter (Sql, conn) 
dss.Clear () 

daa.Fill (dss, "fadmin™") 

1b1.DataSource = dss.Tables (0) 

1b1.DisplayMember = "fusername”" 

l1lb1.ValueMember = "fusername" 

Case "fblocked" 


Dim dss As New DataSet 

Dim Sql = "select * from fblocked" 

Dim daa As New OleDb.OleDbDataAdapter (Sql, conn) 
dss.Clear () 

daa.Fill (dss, "fblocked") 

lb1.DataSource = dss.Tables (0) 

b1.DisplayMember = "fusername”" 

l1lb1.ValueMember = "fusername" 


End Select 


Catch ex As Exception 
SgBox (Err.Description, MsgBoxStyle.Critical) 


ERG. TEY 


هذه جملة عوج selec‏ 


بمعنى اذا تم انتقاء أي بند من البنود يتم ملء اداة القائمة 1طإبمحتويات ذلك البند او الجدول 


لناتي الى حدث 
1lb1_SelectedIndexChanged‏ 


lb1=listbox1 


لنرى الكود 


TEE 
Select Cb1.. Text 
Case "fmembeErs”™ 

Dim x As String = 1lb1.SelectedValue.ToString 

Dim sq As String = "select * from fmembers where 
FUSEENaMe='Y™ & x ¢ TT 

Dim dapter As New OleDb.OleDbDataAdapter (sq, 
conn) 

Dim ds As New DataSet 


dapter.Fill (ds, "fmembers™") 


TextBox1.DataBindings.Add ("text", ds, 
"fmembers. fusername™) 
TextBox2.DataBindings.Add ("text", ds, 
"fmembers. fpassword™) 


TextBox1.DataBindings.Clear () 
TextBox2.DataBindings.Clear () 


Case "fadmin" 
Dim x As String = 1lb1.SelectedValue.ToString 


Dim sq As String = "select * from fadmin where 
FUSEENaMe='Y & x ¢ TT 
Dim dapter As New OleDb.OleDbDataAdapter (sd, 
conn) 


Dim ds As New DataSet 
dapter.Fill (ds, "fadmin") 


TextBox1.DataBindings.Add ("text", ds, 
"fadmin. fusername") 


TextBox1.DataBindings.Clear () 


Case "fblocked" 


Dim x As String = 1b1.SelectedValue.ToString 
Dim sq As String = "select * from fblocked where 


Dim dapter As New OleDb.OleDbDataAdapter (sq, 


Dim ds As New DataSet 
dapter.Fill (ds, "fblocked") 


TextBox1.DataBindings.Add ("text", ds, 


TextBox1.DataBindings.Clear () 


End Select 
Catch ex As Exception 
SgBox (Err.Description, MsgBoxStyle.Critical) 


ENG. TEY 


الا تلاحظ وجود مربعات نص في فورم الادارة 


يوجد مجموعتين مجموعة يظهر فيها كلمة المرور مشفرة 


والاخر نقوم بفك التشفير 
في حدث مربع النص المخصص لاظهاء اسم المستخدم ضمن حدث 


TextBoxl_TextChanged 


اكتب الكود التالي 


TextBox4.Text = TextBoxl. Text 
ومربع كلمة المرور ايضا نفس الطريقة لكن‎ 


هناك مسالة فك التشفير 


DIM. DB ASF SEEING 
n = Decrypt (TextBox2.Text, "85*wqbhtmaswdf 654789lop") 
TextBox3.Text = n 


الازرار الاخرى معروفة 


fusername='" & x & "IT 


Cofn) 


"fblocked. fusername"™) 


ولكن ساتطرق الى ازرار الحظر وفك الحظر وتعيين مشرف والغاء من الاشراف 


انظر الكود التالي كاملا 


Dim mblocked As String = "select * from fblocked where 
E£UseErName='" & TéxtBox4.Text & "™" 

Dim madmin As String = "select * from fadmin where 
fUserName='" & TextBox4.Text & "'" 


Dim madminds As New DataSet 

Dim madminda As New OleDb.OleDbDataAdapter (madmin, conn) 

madminda.Fill (madminds, "fadmin") 

If Me.BindingContext (madminds, "fadmin").Count > 0 Then 

يستطيع هو او تستطيع فلن EE‏ الاد اري کل ف فتهت EE SGBOE( TSI‏ 

وترتك ااخرى. أشز اف عقضو ات لدحك ان «متلاكة انت هل FN Beas‏ اكول 
انت حل الوتافح وتلق ت .حرق ا3ا ,الفط تالفحل الق الجفيى هكا حلفت 
= )"حۍıiير" MsgBoxStyle.YesNo + MsgBoxStyle.Critical,‏ ,"مو افق؟ 
MsgBoxResult.No Then Exit Sub‏ 


EBC TE 


تق اللحظن مغد التعضرو؟ حخدرا -خظر اتزنة انك اكك اتك 1Ê MSGBo* ("Ja‏ 
MsgBoxStyle.YesNo + MsgBoxStyle. Critical)‏ ,"البرنامج استخدام من يتمكن 
MsgBoxResult.No Then Exit Sub‏ = 


LEY 
Dim regsql As String = "select * from fblocked" 
Dim regds As New DataSet 
Dim regda As New OleDb.OleDbDataAdapter (regqsql, conn) 
Dim CmdB As New OleDb.OleDbCommandBuilder (regda) 


regda.Fill (regds, "fblocked") 


Dim doblods As New DataSet 
Dim doblocda As New OleDb.OleDbDataAdapter (mblocked, 


conn) 

doblocda.Fill (doblods, "fblocked") 

If Me.BindingContext (doblods, "fblocked").Count > 0 Then 
MS380×)"ا ,"شايبقا الحظر قند الغضز هد‎ 
MsgBoxStyle.Exclamation) 
Exit SUb 
HRC LE 


Dim dRow As DataRow = regds.Tables ("fblocked") .NewRow 


dRow.Item(0) = Me.TextBox4.Text 


regds.Tables ("fblocked") .Rows.Add (dRow) 
regda. Update (regds, "fblocked") 


Ms3980±× )" ("بنجاح الشخص هذا حظر ت‎ 
Catch ex As Exception 

MsgBox (Err.Description, MsgBoxStyle.Critical, "error") 
ERQ TEY 


ولالغاء الحظر انظر الكود التالي 


E 


Dim madmin As String = "select * from fblocked where 


fUserName='"" & TextBox4.Text & "'" 
Dim madminds As New DataSet 


Dim madminda As New OleDb.OleDbDataAdapter (madmin, conn) 
madminda.Fill (madminds, "fblocked") 


م" العفضو؟ جكذا جظر العا 
MsgBoxResult.No Then Exit‏ = ) 


ERQ. TEY 


LÊ MSGBOX ("Ja من متاك . ان‎ 
MsgBoxStyle.YesNo + MsgBoxStyle.Critical 


Sub 
Dim SavInto As New OleDb.OleDbCommand 
SavInto.Connection = conn 
SavInto.CommandType = CommandType. Text 
SavInto.CommandText = "DELETE FROM fblocked WHERE 
fusername='" & TextBox4.Text & "'" 
conn. Open () 
SavInto.ExecuteNonQuery () 
dASL:CLéaEF () 
da1lsFLLL (ASL, ‘TEblocked"™) 
conn.Close () 
MS;Box ("تلتجاع العفو حفر الغاة غ"(‎ 
Catch ex As Exception 
MsgBox (Err.Description, MsgBoxStyle.Critical) 
کول تعبين كمد‎ 
م 0۾ یر‎ 
Dim mblockedstr As String = "select * from fblocked where 
fUserName='" & TextBox4.Text & "'" 
Dim mblockedds As New DataSet 
Dim mblockedda As New OleDb.OleDbDataAdapter (mblockedstr, 
CONE) 


mblockedda.Fill (mblockedds, "fblocked") 


"EDLOCEEA™) Colt = O ThE 


( "كمدير تعيلة و لمكن االخضزر فانمة فمن الجضو :هدا" S3805)‏ 


If Me.BindingContext (mblockedds, 


ERLE Ub 
End TÊ 


Dim madmin As String = "select * from fadmin where 


& TextBox4.Text & "'" 


fUserName='" 


Dim madminds As New DataSet 
Dim madminda As New OleDb.OleDbDataAdapter (madmin, conn) 


inda.Fill (madminds, "fadmin") 


madm 


If Me.BindingContext (madminds, "fadmin").Count > 0 Then 


IÊ MsgBox*(" Ilذأia‎ gjضغلا ,"سابقا الاد ارة قشم ضفن موجوة‎ 
MsgBoxStyle.YesNo + MsgBoxStyle.Critical, "yرıi")‎ = MsgBoxResult.No 
Then Exit Sub 

BXLE SUB 

ERG LEÊ 
LEY 
Dim regsql As String = "select * from fadmin" 


Dim regds As New DataSet 
Dim regda As New OleDb.OleDbDataAdapter (regsql, conn) 
Dim CmdB As New OleDb.OleDbCommandBuilder (regda) 


regda.Fill (regds, "fadmin") 


Dim doblods As New DataSet 

Dim doblocda As New OleDb.OleDbDataAdapter (regsql, conn) 
dODLOCdAaA:ELLL(QAOBLOIAS, "ESOMILRA™) 

Dim dRow As DataRow = regds.Tables ("fadmin") .NewRow 


dRow.Item(0) = Me.TextBox4. Text 


regds.Tables ("fadmin") .Rows.Add (dRow) 
regda.Update (regds, "fadmin") 


("كمشرف العضو هذا تعيين ۴ ") Ms980>×‏ 

h ex As Exception 

MsgBox (Err.Description, MsgBoxStyle.Critical, "error") 
ENG TEY 


GEE 


هذا كود الحذدف من الادارة 


Dim madmin As String = "select * from fadmin where 
& TextBox4.Text & "'" 
Dim madminds As New DataSet 
Dim madminda As New OleDb.OleDbDataAdapter (madmin, conn) 
madminda.Fill (madminds, "fadmin") 


LÊ: MSSBO* (la االات شن اکى اة‎ CE O 
YesNo + MsgBoxStyle.Critical) = MsgBoxResult.No Then Exit 


Dim SavInto As New OleDb.OleDbCommand 
SavInto.Connection = conn 


a 


fUserName='" 


MsgBoxStyle. 
Sub 


SavInto.CommandType CommandType. Text 

SavInto.CommandText = "DELETE FROM fadmin WHERE 
fusername='" & TextBox4.Text & "'" 

conn. Open () 

SavInto.ExecuteNonQuery () 

ds1.Clear () 

dal.FILL (ASL; TEAOAMILR™) 

da1l.Update (ds1, "fadmin") 

conn.Close () 

("تتجاح الاة اة قن الغاء العفقى 2"( MS;8©Ox%‏ 


Catch ex As Exception 
MsgBox (Err.Description, MsgBoxStyle.Critical) 


ENG. TEY 


تم بحمد الله الانتهاء من الشرح المبسط واليسير................مع خالص تحياتي محبكم | 
سعود 


عضو منتدى فيجوال بيسك العرب 


